home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 12 / Commodore_Disc_12_19xx_-_de.d64 / lader2 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  1.0 KB  |  34 lines
  1. 0 a=a+1:ifa=1then load"([195])*",8,1
  2. 10 poke53281,0:poke53280,0:printchr$(14)
  3. 20 printchr$(147);"[158] [205] e n u e c a l c u l a t i o n  v 1.6 "
  4. 30 a=7:z=5:gosub490:print"suche [196]ruckerdaten"
  5. 40 dr$="  [196]rucker    "
  6. 50 open1,8,2,dr$+",s,r
  7. 60 [132]1,a$
  8. 70 [160]1
  9. 80 [139]a$[178]"(NULL)ps 801/803"[176]a$[178]"(NULL)tar (NULL)(NULL) 10 "[167]500
  10. 100 a[178]0:z[178]5:[141]490:[153]"            str$ruckerauswahl  "
  11. 110 [153]" 1  lenommodore 801 / 803 und kompatible"
  12. 120 [153]" 2       (NULL)tar (NULL)(NULL) 10     und kompatible"
  13. 130 a[178]10:z[178]15:[141]490:[153]" bitte waehlen !!":[129]w[178]1[164]100:[130]
  14. 135 a[178]10:z[178]15:[141]490:[153]" bitte waehlen !!wait":[129]w[178]1[164]100:[130]
  15. 150 [161]w$:[139]w$[178]""[167]130
  16. 160 [139]w$[178]"1"[167]a$[178]"(NULL)ps 801/803":[137]200
  17. 170 [139]w$[178]"2"[167]a$[178]"(NULL)tar (NULL)(NULL) 10 ":[137]200
  18. 190 [137]150
  19. 200 a[178]3:z[178]15:[141]490:[153]"right$ch speichere deine str$ruckerdaten"
  20. 250 [159]15,8,15,"s:"[170]dr$
  21. 260 [160]15
  22. 300 [159]1,8,2,dr$[170]",s,w
  23. 310 print#1,a$
  24. 320 close1
  25. 400 goto500
  26. 490 poke211,a:poke214,z:sys58732:return
  27. 500 printchr$(147);"[158] [205] e n u e c a l c u l a t i o n  [214] 1.6 ";
  28. 530 z=3:a=8:gosub490:print"([195]) 1987 by [195]h. [194]raun
  29. 540 [153]"    bitte warten, ich lade (NULL)rogramm
  30. 550 print"       fuer [196]rucker ";a$
  31. 600 print"[144]load"+chr$(34)"  "+a$+"+"+chr$(34)+",8,1"
  32. 620 print"r[213][145][145][145][145][145][145][145][145]"
  33. 630 poke631,13:poke632,13:poke633,13:poke198,2
  34.